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FACILITY: VAX MACRO ASSEMBLER OBJECT LIBRARY 


ABSTRACT: 


The VAX-11 MACRO assembler translate I peated source code into object 
modules for input to the VAX-11 LIN KER 


ENVIRONMENT: USER MODE 
AUTHOR: Benn Schreiber, CREATION DATE: 25-AUG-78 
MODIFIED BY: 
v03-004 thyety Mike Rhodes 16-May-1984 
Filter object code data values from being written 


into psects with the absolute attribute, since the 
object code command records have been removed. 


v03-003 MCNO153 Maria del C. Nas 15-Feb-1984 
Eliminate an extra, unnecesary $VPUSH when processing 
Bote vectors. 


v03-002 MTROO33 Mike Rhodes 22-Apr 1983 
Allow the removal of the blank psect Pit it's not referenced. 


v03-001 MTROO31 Mike Rhodes Nes tet r- 
Remove obsolete vetarenne to $MAC_TI at macro. 
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i a MCHC ORT TA TATE OR ° 
TROOOS Mike . ates igh ride 
Moat ty routine P2SEND test the set na of the “‘external"’ 
error flags FLG$V_ EXTERR and FLG$V_E ettun exiting with the 
more severe status if set. Else, 7t will ery and set the 


completion status as in the past, according to the type of 
assembly errors encountered. Fixes SPR #11-41651(A). 


CNHO039 Chr 980 
Closed off a few noes inton ob or osaaes kgngth checking 
errors. (IODAT. MAR 02.08, OHDOUT.MAR 02.02) 


CNHOO36 Chris Hume 14-Jul-1980 
Closed off some more areas where the assembler was writin ng 
object records too long for the Linker. (P2ACT2.MAR 02.11) 


CNHO034 Chris Hume 14-May-1980 
eatratadl the essenbier from eccasionally writing object 
records too long for the Linker. 


RNOO23 R. Newland 33-Nov-1979 
New acorenr codes to get error messages from system 
message fil 


RNOOO7 R. Newland 28-Aug-1979 
Store signed byte for non-optimised, not PC relative 
8-bit displacment and deferred displacement 


RNOOOS R. Newland 13-Aug-1979 
Remove .ALIGN LONG cee tate 
RNOOO3 R. Newland 22-May-1979 


Store signed word for not PC=relative, non-optimised 
16-bit displacement and deferred displacement 


RNOOO2 R. Newland 01-Feb-1979 
Changes for Source Update Merge 
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MACSP2ACT1 ACTION ROUTINES FOR PASS 2 16-SEP-1984 02:11:45 VAX/VMS Macro v04-00 Page 
Woe 000 DECLARATIONS mets 7 PLE 9:27 ERACRO® SRCIPSACTI MAR: 1 . 3) 
38 ‘ eSBTTL DECLARATIONS 
98 : INCLUDE FILES: 
38 
100 
101 : 
1 § 3; MACROS: 
108 
80 105 SMAC_SYMBLKDEF ;DEFINE SYMBOL BLOCK OFFSETS 
00 1 § SMAC_CTLFLGDEF ;DEFINE CONTROL FLAGS 
00 1 SMAC_ADRMODDEF ;DEFINE ADDRESSING MODES 
00 108 SMAC_OBJCODDEF DEFINE OBJECT MODULE CODES 
0000 109 SMACASGDEF : Define messege co codes 
8000 119 SMAC_GENVALDEF 3; Define VAX-1 MACRO commom symbols 
00000000 112 -PSECT MACS$RO_CODE_P2,NOWRT,GBL,LONG 


MACSP2ACT1 ACTION ROUTINES FOR PASS 2 16-SEP-19 :11:45 VAX/VMS Macro V04-00 P 4 | 
04-000 POSSTRG STACK GLOBAL’ EXTERNAL SYMBOL  SagEPa19BG Si iug io? FAACMRS Mages VO 00 ~~ au 
00 114 .SBTTL P2$STKG STACK GLOBAL, EXTERNAL SYMBOL | 
118 p++ 
1 ; FUNCTIONAL DESCRIPTION: 
09 113 : EMIT TEXT TO OBJECT FILE TO STACK A GLOBAL SYMBOL. 
000 1: INPUTS: 
999 : RB POINTS INTO INTERMEDIATE BUFFER 
009 i 
0000 1 $ P2$STKG:: 
56 88 80 9000 128 MOVL  (RB)+ RG :GET SYMBOL BLOCK ADDRESS 
0003 129 SVPUSH SYMS$L’VAL(R6) [PUSH SYMBOL VALUE ONTO STACK 
000¢ 130 $084 “CHKBYT briRgc STA_GBL ‘EMIT COMMAND FOR LINKER 10 STACK GLOBAL 
FFEB’ 31 0018 131 BRW MACSSYMNAMOUT ~ ‘EMIT SYMBOL NAME AND RETURN 
0015 13 .SBTTL P2$STKS STACK SYMBOL 
Be a 
0013 136 : FUNCTIONAL DESCRIPTION: 
0015 138: STACK THE SYBMOL POINTED TO BY THE WORD IN THE INTERMEDIATE 
0015 139: FILE. If THE SYMBOL IS ABSOLUTE IT IS TREATED LIKE A 
0015 140: STACK LITERAL’. IF IT IS EXTERNAL IT IS TREATED LIKE A 
0015 141: "STACK GLOBAL’. 
0015 | ; 
pale 137 : INPUTS: 
0015 145: RB POINTER INTO INTERMEDIATE FILE 
0015 146: 
0015 147 :-= 
bo1s 129. P2ssTKs:: 
56 68 00 0015 150 "MOVL «= (RB) ,R6 :GET SYMBOL BLOCK ADDRESS 
7E 13 0018 151 BEQL 80$ z1F EQL SPECIAL CANCEL COMMAND 
001A 138 FOR BRANCH DESTINATION 
07 09 A6 «204”—sé*CE‘* OO1A 133 BBC #SYMSV_ABS, SYMSW _FLAG(R65 , 108 ;BRANCH IF NOT ABSOLUTE SYMBOL 
OO1F 138 : PRETEND ITS A STACK LITERAL 
58 05 A6 9E O01F 157 MOVAB SYMS$L_VAL(R6),R8 :POINT TO SYMBOL VALUE 
0080 «(31 00 ; 138 BRW P2$STRL [AND TREAT LIKE STACK LITERAL 
00 6 160 : RELOCATABLE SYMBOL | 
1509 a6 00 €0 $0 6 16¢ 10$: BBS #SYMSV_DEF ,SYMSW FLAG (RG) 40$ ;BRANCH IF SYMBOL DEFINED | 
05 09 A6 06 E0 99 B 16 BBS #SYMSV~LOCAL,SYMSW_FLAG(R6),20$ ;BRANCH IF LOCAL SYMBOL | 
08 09 A6 E0 00 Q 164 BBS #SYMSV-EXTRN, SYMSW aS tT Se O$ :BRANCH IF DECLARED EXTERNAL 
34 166 : SYMBOL LOCAL AND NOT DEFINED, OR NOT EXTERNAL | 
0033 198 50s: SMAC_P2_ERR UNDEF SYM ; Report undefined symbol 
Py } 
003D 190 ; : TREAT AS GLOBAL SYMBOL | 
| 
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71984 01:49:27 EMACKO:SRCSPSACTI OMA 


308: BRW P2SSTKG ;AND TREAT AS STACK GLOBAL 


Los SVPUSH SYMSL_VAL(R6) ;STACK SYMBOL VALUE 
MOVZBL SYMSB~SEG(R6) ,R4 :GET SYMBOL SEGMENT 
OVA SYMBL VAL (RG) ,R3 ‘POINT TO SYMBOL VALUE 
MOVZBL &#4,R SASSUME LONGWORD 
MOVZBL #TIRSC_STA_PL,R1 STACK PSECT yBAse PLUS LONGWORD 
TSTW .2¢R3) [CAN WE OPTIMIZE? 
BNEQ 60$ iI NEQ NO 
TSTW = (R3) 
BLSS 608 IF LSS CANNOT OPTIMIZE 
MOVZBL #2,R2 MAKE WORD 
MOVZBL #TIRSC_STA_PW,R1 i STACK PSECT BASE PLUS WORD 
TSTB 1 (R23) OPTIMIZE T YTE? 
BNEQ 60$ : F NEQ 
TSTB  —s-_ (3) 
BLSS 60S IF LSS CANNOT OPTIMIZE 
MOVZBL #1,R2 MAKE BYT 
MOVZBL #TIRSC_STA_PB,R1 “STACK PSECT BASE PLUS BYTE 
> R1 == COMMAND 
> RG == SEGMENT 
: R3 -- POINTS TO SYMBOL VALUE 
dos: $0BJ_CHKBYT R1 :STACK COMMAND 
TSTL :MAKE SURE THAT WE DON'T FIDDLE WITH 
BEQL Res : THE pABSOLUT E PSECT. 
BBS #SYMSV THE BLANK PSECT HASN'T BEEN REF'D 
PSECTSBLANK*SYMSW_ FLAG, 058 sIT'LL BE REMOVED, DECR THE S$ 
DECL R4 TO PRESERVE THE PSECT ALIGNMENT 
65$:  $OBJ_OUTBYT R4 :STACK SEGMENT # 
70$:  $0BU7 ouTBYT (R3)+ tEMIT VALUE 
ad SOBG BGTR R2,70$ ‘LOOP FOR ALL BYTES 


s+ 
; FUNCTIONAL DESCRIPTION: 
EMIT TEXT TO OBJECT FILE TO REDEFINE TRANSFER ADDRESS. 


2SREDEF : 


MOV 7GET SYMBOL BLOCK ADDRESS 
S08, _cHKBYe at iesc OPR_REDEF EMIT REDEFINE CO 
MACSSYMNAMOUT ~ sEMIT SYMBOL NAME AND RETURN 


CT1.MAR;1 
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04-000 POSS TRL STACK LITERAL VALUE ~oeer Tobe 09:49:57 EMACMO SR eSPoAL TT mars 1 ad) 
Ag 1 .SBTTL P2$STKL STACK LITERAL VALUE 
Ag 3 te 
0 Ag 4 + FUNCTIONAL DESCRIPTION: 
A6 : ; STACK THE LITERL VALUE SUPPLIED IN THE IN TERMEDIATE BUFFER. 
Ong ; IF POSSIBLE, IT WILL BE OPTIMIZED TO A BYTE OR WORD. 
00A6 § : INPUTS: 
00A6 Oo 3 
OOAG 1: RB POINTS INTO INTERMEDIATE BUFFER 
bone 3 ¢== 
00A6 234 
00A6 235 P2$STKL:: 
00A6 236 $VPUSH (RB) sSTACK THE VALUE 
55 04 9A OOAE 237 MOVZBL #4,R5 ZASSUME LONGWORD VALUE 
54 03 9A 0081 938 MOVZBL #TIRSC_STA_LW,R4 
02 Ag BS 00B4 239 TSTW  2(RB) [CAN WE OPTIMIZE TO WORD? 
13 12 0087 240 NEQ 10$ ;MAYBE--SEE IF NEGATIVE 
55 02 9A 00B9 341 MOVZBL #2,R5 SYES==-MAKE WORD VALUE 
54 08 9A OO0BC 4g MOVZBL #TIRSC_STA_UW,R4 ‘STACK K UNSIGNED WORD 
AB 95 OOBF 34 1 (RB) ;OPTIMIZE TO BYTE? 
28 12 O0C2 244 BNEQ 20% ‘IF NEQ NO 
| 01 9A 00C&4 245 MOVZBL #1,R5 ;YES--MAKE BYTE VALUE 
07 9A 00C7 246 MOVZBL #TIRSC_STA_UB,R4 :STACK UNSIGNED BYTE 
23. 11 OOCA 247 BRB 20$ 
OOCC 248 ; 
949: rh 3; HIGH ORDER WORD IS NON-ZERO 
8F B1 OOCF 251 {0Ss: CMPW 2s #=1,2 (RB) 21S HI-ORDER WORD -1? 
1B 12 00D2 252 BNEQ 208 [IF NE NO=-CANNOT OPTIMIZE 
68 B85 0004 253 TSTWw (RB) ‘LOW ORDER WORD NEGATIVE? 
17 18 00D6 254 BGEQ 208 tIF GE NO--CANNOT OPTIMIZE 
02 9A 00D8 255 MOVZBL #2,R5 SYES=-OPTIMIZE TO WORD 
02 9A O00DB 256 MOVZBL #TIRSC_STA_SW,R4 SSTACK SIGNED WORD 
8F 9 ODE 257 CMPBo#=1,1 (RB) ‘CAN WE OPTIMIZE TO BYTE? 
OA Ne O0E3 258 BNEQ 208 IF NE NO 
68 95 O00E5 939 TSTB = (RB) ‘MAYBE 
06 18 OOE7 260 GEQ p1F GE CANNOT OPTIMIZE 
01 9A O0E9 261 MOVZBL #1,R5 MAKE BYT 
01 9A OOEC 36¢ MOVZBL atin RSC_STA_SB,R4 STACK SIGNED BYTE 
OOEF 26 208: $OBJ_CHKBYT R47 EMIT COMMA ND 
OFS 64 30$:  $OBJ~OUTBYT (R8)+ SEMIT DAT 
55 £5 OOFB 265 SOBGTR R5,30$ ‘LOOP FOR Au BYTES 
05 OOFE 266 RSB 
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H DESTINATION GENERATION -SEP=1984 01:49:27 CMACRO.SRCJP2ACT1.MAR; 1 
68 .SBTTL P2$BDST BRANCH DESTINATION GENERATION 
$3 p++ 
Al ; FUNCTIONAL DESCRIPTION: 
73 : THIS ROUTINE GENERATES BRANCH DESTINATIONS. 
75: 
6 : INPUTS: 
78 : R8 >> 2 BYTES OF MACS$GL_OPSIZE 
79 ; 4 BYTES OF 0 OR SYMBOL ID ADDRESS (IF SPECIAL RESOLUTION) 
30 : 1 BYTE OF 0 OR PSECT # (IF SPECIAL RESOLUTION) 
P2S$8DST:: 
MOVZ2WL (R8),W*MACSGL_OPSIZE :COPY FLAGS 
BBCC  #OPFS$V_LASTOPR,(R8),5$ CLEAR LAST OPERAND FLAG IN BUFFER 
5$: CMPW  WMACSGL_LIST_PTR,#MACSAB_LST_OP1 ;:IN OPERAND FIELD? 
BLEQU sIF LEQU POINTER 
MOVAB W*°MACS$AB_LST_OP1,- “POSITION TO OPERAND 
O*MATSGL_LIST_PTR 
CLRL § W*MACSGL_MOPNUM 
10S: MOVL  2(R8),R6 7GET SYMBOL ADDRESS 
TSTB 7(R8) sSPECIAL PASS 2 RESOLUTION? 
BNEQ 50$ :1F NEQ NO 
TSTL = RB sYES=-SYMBOL SPECIFIED? 
BEQL 50$ SIF EQL N 
CMPB © 6(R8) , SYMSB_SEG(R6) > YES=-SAME PSECT? 


NEQ N 
BBC #SYMSV_DEF ,SYMSW_FLAG(R6S ,40$ ;YES--SYMBOL DEFINED? 


SYMBOL IS DEFINED, AND LIVES IN SAME PSECT. RESOLVE SYMBOL 
AND PRETEND OPTIMIZATION. 


MOVL SYMS$L_VAL(R6) ,2(R8) SET SYMBOL VALUE 
#1,1(R8) 


MOVB [PRETEND OPTIMIZED 
BRB 50$ [SKIP SOME 
: SYMBOL IN DIFFERENT PSECT OR NOT DEFINED. TREAT LIKE SYMBOL 
dos: PUSHR #*M<RS,R6,R8> ZSAVE REGISTERS 
TSTW = (RB) + :POINT TO ID POINTER 
BSBW =s-s» P2SSTKS ‘STACK THE SYMBO 
POPR #*M<R5,R6,R8> TRESTORE REGISTERS 
50$: TSTB  —s« 1 (RB) : OPTIMIZED? 
EQL 5 QL NO 
SVPUSH 2(R8) *YES=-STACK TARGET ADDRESS 
40S: SVPUSH W*MACSGL_PC ‘STACK CURRENT PC 
CMPB) ss (RB) , #1 [ONE BYTE BRANCH DESTINATION? 
BNEQ 1208 SIF NE NO 


; ONE BYTE BRANCH DESTINATION 


INCL  WSMACSAL_VALSTACKER7) 
BSBW = PISARITH~SUB 


oo 
. 


sADD 1 TO PC 
;COMPUTE BRANCH OFFSET 
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V04=000 POSBDST BRANCH DESTINATION GENERATION 'S-Sep21984 Bizad:37 LAACHCSROTPSAL ST mors 1 ve 8, 
55 Q000°CF47 0D re MOVAL W*MACSAL_VALSTACKCR7],R5;POINT TO RESULT 
01 AB 9 7 TSTB RB) SOPTIMIZED? 
330 CO 7B BEQL si ; ‘IF EQL NO 
02 AS «6B5 «(0170 TSTW (R5) SYES=-CHECK FOR DEST. OUT OF RANGE 
09 1 8 BNEQ py. SIF NEQ CHECK NEGATIVE DEST. OUT OF RANGE 
65 FF80 BF B BITW =o #*C<*X7F>, (RS) :POSITIVE DEST. OUT OF RANGE? 
7 f BNEQ SIF NEQ YES=-REPORT ERROR 
iD «11 3 BRB O$ tNO==CONT INUE 
88 > CHECK NEGATIVE DEST. OUT OF RANGE 
53 OO7F BF 65 Ad 8B 70S: BISW3 (R5),#*X7F,R3 sHOPEFULLY MAKE -1 
FFFF 8F 02 A5 Bi 1 CMPW 3 2(R55 ,#=1 ‘HI WORD ALL ONES? 
07 12 0197 BNEQ ‘IF NEQ NO--DEST. OUT OF RANGE 
FFFF 8F 53 B81 0199 CMPW 0 séR3 #1 SYES==LOW WORD AND “XFF ALL ONES? 
08 13 Hi BEQL 4«=s-«90$ :IF EQL YES=-0K 
A : DEST. OUT OF RANGE 
AO 80s: SMAC_P2_ERR BRDESTRANG ; Report branch destination out of range 
50 90 O18 90$:  MOVB R "GET DESTINATION OFFSET 
FES2° 30 BSBW MACSSTOIN :STORE INTO OBJECT FILE 


t UN-OPTIMIZABLE BRANCH DESTINATION 


QO00'DF 27 90 1005:  MOvB #*°A/'/ ,AW*MACSGL_LIST_PTR ;PUT QUOTE IN LISTING 


NSS SOO DS DS DDS DDS TTT Be BS BS BS BB BE BAAN nonononen 
uw =D OOO NAME WO OOO NAME WW O OD NAU SW 0 ODONAOU EWN OOOnNOu 


7 
hi ; REPORT BRANCH DESTINATION OUT OF RANGE 
1 1408:  $MAC_P2_ERR BRDESTRANG ; Emit message 


a ee ae a a a ce cee ae ce a ee ee a ee a a ee ee ee a a a a a a ae a a ed ae a a ed a a a a aa eh 

= 
AANA ANAAN AA AAA AA AAAI AA AA AA AA AANA NIAAA WANA N AIA AWN A NAAN OZ 
oooo 


fo lelolelalele lala lel alelololwololololalolelalelaleloleleloleloleloleloleloleloleoleleleolel al aleleleloiel aloe ola o) 


AB 
AE 
BO 
B0 
3 
Bs $OBJ_CHKBYT #TIRS$C_STO_BD :STORE BYTE DISPLACED 
88 : FINISH UP 1-BYTE BRANCH DESTINATION PROCESSING 
BB 110$: $MAC_LIST_BYTE #1 :SEND ONE BYTE TO LISTING 

54 «O11 cl BRB 180$ ; 
c3 + TWO-BYTE BRANCH DESTINATION GENERATION 

0000'CF47 02 CO 01C¢3 120$: ADDL2 #2,W*MACSAL_VALSTACKLR7];ADD TWO TO PC 
FE34" 30 01C9 BSBW PISARITH_SUB :COMPUTE OFFSET 
55 O000'CF47 DE 01CC MOVAL W*MACSAL“VALSTACKCR73,R5:POINT TO OFFSET RESULT 
01 AB «95 De TSTB. —s- 1 (RB) SOPTIMIZED OFFSET? 
2F 613 «(01D BEQL 160$ ‘IF EQL NO 
53 02 A5 B80 0107 MOVW = 2(R5),R3 TYES--CHECK FOR DEST. OUT OF R..NGE 
OD 13 01DB BEQL 130$ SIF EQL CHECK FOR FORWARD OUT OF RANGE 
FFFF 8F 53 81 O1DD CMPW RS #=1 SNEGATIVE=-IS HI WORD ALL ONES? 

OA 12 O1E2 BNEQ 1406$ [IF NEQ NO=-RANGE ERRO 

65 BS O1E4 TSTW = (R5) :YES=-1S LO WORD NEGATIVE? 

06 18 EG BGEQ 1408 SIF GEQ NO--RANGE ERROR 

oc i E8 BRB 150$ :YES--OK 
EA 74 : CHECK FORWARD RANGE ERROR 
EA 2 130$: TSTw (RS) :FORWARD DEST. OUT OF RANGE 
EC 7 BGEQ 1508 SIF GEQ NO 
EE 
EE 
EE 


+ be 8 cl 
v04-000 
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; FINISH TWO-BYTE BRANCH DESTINATION PROCESSING 


150$:  MOvB (R5)+,RO :GET LOW BYTE 
BSBW «= MAC $STOIM STORE INTO OBJECT FILE 
MOVB = (R5) ,R ‘GET H YT 
BSBW MACS$STOIM * STORE [N10 OBJECT FILE 
TSTB 2s =(R5) ‘KEEP R5 POINTING AT TOP OF VALUE STACK 
BRB 170$ [FINISH BRANCH DEST. PROCESSING 
: NON-OPTIMIZED TWO BYTE BRANCH DESTINATION 
160$: @W°MACSGL_LIST_PTR ;STORE QUOTE IN LISTING 


MOVB 
$OBJ _CHKBYT ‘shinee _STO_WB 


:STORE WORD DISPLAC ED 


; FINISH TWO-BYTE BRANCH DESTINATION PROCESSING 
SEND TWO BYTES TO LISTING 


170$:  S$MAC_LIST_BYTE #2 
: FINISH BRANCH DESTINATION PROCESSING 
180$:  RSB 


; Return 


9 
(5) 
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yOe p00 PSSL CL AB LABEL ROUTIN NESSCHECK FOR PHASE 5=SEP-1984 9¢ 13:33 YRACRO SROIPSACTT SMAR: 1 ~ i 
4 5 .SBTTL P2$LGLAB LABEL ROUTINE=-CHECK FOR PHASE ERRORS 
1 109 :+s 
! $88 3 FUNCTIONAL DESCRIPTION: 
18 410: THIS ROUTINE CHECKS THAT THE VALUE FOR THE SYMBOL IS 
1 411: THE SAME AS THE CURRENT PC. IF NOT, AN ERROR MESSAGE 
1 41g ; 1S ISSUED. 
18 «413: 
021 414 i= 
021 415 
0 1 416 P2SLGLAB:: 
56 dO 021 41 MOVL (RB), R6 OINT TO SYMBOL BLOCK 
05 A6 0000" CF D4 0 18 418 CMPL WPMACSGL PC,SYMSL min i ates SYMBOL VALUE? 
0 $3 420 SMAC_P2_ERR SYMOUTPHAS eport phase error 
00 68 OC £3 0 38 421 10$: BBCS” “#FLGSV_MEBLST,(R11),20$ ‘FORCE "TRBELS TO BE LISTED 
05 0 F 4 ‘ 20$: RSB 
0 3 424 .SBTTL P2$OP  OPCODE GENERATOR 
0230 425 
0230 426 ;++ 
0230 4 , t FUNCTIONAL DESCRIPTION: 
0930 4 4 ; THIS ROUTINE WRITES THE OPCODE TO THE OBJECT AND LISTING 
0230 431 : INPUTS: 
0230 43¢ ; 
0230 433: R8 >> OPCODE VALUE (1 WORD) 
9250 434 ; 
0230 435 :-- 
0230 436 
0230 437 P2SOP:: 
Q000'CF O000'CF 9E 0230 438 MOVAB W*MACSAB_LST_OPR,W*MACSGL_LIST PTR ;MOVE TO OPCODE FIELD 
57 D4 0237 439 CLRL = R7’ SPREVENT STACK UNDERFLOW 
0239 440 $VPUSH (R8) PU et OPCODE VALUE 
55 Q000'CF47 OE O241 441 MOVAL W*MACSAL_VALSTACKLR7],R5:KEEP nS, POINTING TO TOP OF STACK 
50, 01 9A 0247 44g MOVZBL #1,RO SASSUME 1 BYTE OPCODE 
1 AB 95 026A 44 TSTB 188) ‘TWO BYTE OPCODE? 
02 13 04D 444 BEQL 108 SIF EQL NO 
50 D6 O24F 445 INCL RO :YES--EMIT TWO BYTES 
0251 446 10$:  $MAC_LIST_BYTE RO SEND OPCODE VALUc TO LISTING 
01 A8 95 0254 447 TSTB”  —-1TRB) :TWO BYTE OPCODE? 
03 1 57 448 BNEQ 208 SIF NEQ YES 
0000' CF : C 594 SUBL2 #2,W°MACSGL_LIST_PTR | :TWO SPACES FOR ONE BYTE OPCODE 
50 88 9 SE 450 208: MOVB  (R&)+,RO ‘EMIT LOW BYTE OF OPCODE 
Fo9C' 3 61 451 BSBW MACSSTOIN 
50 68 99 64 43¢ MOVB (RB) ,RO i TWO BYTE OPCODE? 
03 1 67 45 BEQL «= 3 QL_N 
FD94" 31 0 69 454 BRW MACSSTOIM HYES*<STORE INTO OBJECT FILE 
05 026C 455 30$: RSB SAND RETU 
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MACSP2ACTI ACTION ROUTINES FOR PASS 2 16-SEP-1984 02:11:45 VAX/VMS Macro V04-00 P 
v04=000 PSSREE OPERAND REFERENCE GENERATION -SEP=1984 EEE YRACRO. SROSPSACT1 MAR: 1 a 
6p 457 .SBTTL P2$REF OPERAND REFERENCE GENERATION 
6D 138 34+ 
6p 460 ; FUNCTIONAL DESCRIPTION: 
6D 466 : THIS ROUTINE GENERATES OPERAND REFERENCES. THE VALUE ASSOCIATED 
6p 463 : WITH THE REFERENCE (IF ANY) IS LEFT ON THE VALUE STACK. 
6p 465 : INPUTS: 
026D rh : R8 >> MODE (1 BYTE) OPERAND MODE ('E' MODE IF INDEXED) 
0 6D 468 ; IMODE (1 BYTE) 
6D 465: (1 BYTE) OPERAND REGISTER (°E' REG. IF INDEXED) 
0260 470: IREG 
0260 471: FLAGS (1 WORD) 
0 6p 42g 3 VALUE (1 LONGWORD) | ONLY IF OPTIMIZED 
0260 474 :=- 
$8 ee aan 
Q000'CF 04 AB 3C 026D 133 “"MOVZWL 4(RB),W°MACSGL_OPSIZE COPY FLAGS 
00 04 A8 E5 0673 478 #OPFS$V_LASTOPR;4(R8),5$ :CLEAR LAST OPERAND FLAG 
0000 CF 81 0 28 479 5$: CMPW W*RACSGL LIST PTR. = ee SPOINTER OK? 
07 1B O027F tbs BLEQU§ 10$ pags’. z1F LEQU OK 
QO00'CF 9E 0281 43¢ MOVAB W*MACSAB_LST_OP1,- “NO=-SET POINTER 
0000'CF 0285 48 Q*MACSGL_LIST_PTR 
0068 O07 €E5 0 88 434 0s: BBCC #FLGSV_EXPOPT,(RT1),20$ ;CLEAR OPTIMIZED EXPRESSION FLAG 
0 8C 486 P2$xREF 
se Hee a Be ig magne 
57 DD 0291 439 PUSHL R7 SYES=-SAVE VALUE STACK POINTER 
0293 490 SVPUSH 6(R8) :STACK VALU 
0068 O7 €3 029¢ 491 BBCS #FLG$V_EXPOPT,(R11),10$ :SET OPTIMIZED EXPRESSION FLAG 
50 68 9A O2A0 492 10$ MOVZBL (R8),RO [GET MODE OF REFERENCE 
© % YB BR Btn ‘eeabinedsmap lan 
0A 15 a 495 BLEQ 30 [IF LEQ THEN LEGAL MODE 
AA 496 208: $SMAC_P2_ERR ILLMODE ; Report mode error 
50 D4 0282 497 R R [USE MODE 0 
53 50 9A 0284 498 30$:  MOVZBL RO,R3 SSAVE MODE 
52. 50 04 78 0287 499 ASHL #4.RO,R2 [SHIFT MODE TO UPPER 4 BITS OF BYTE 
54° «(02 ag 9A 0 BB 0 MOVZBL 2(RB).R4 “GET REGISTER OF REFERENCE 
05 19 O2BF BLSS 4 TIF LSS THEN ILLEGAL REGISTER 
OF 54 91 02Cc1 : CMPBsaRG, #15 SLEGAL REGISTER? 
08 15 024 BLEQ :IF LEQ YES 
6 : $08: SMAC_P2_ERR ILLREGNUM ; No-report register error 
52 54 88 CE 4 " - BISB2 R4,R2 ;PACK MODE AND REGISTER 
D S$VPUSH SAND STORE ONTO VALUE STACK 
55 OQ000'CF47 DE D9 08 MOVAL W*MACSAL_VALSTACKCR7],R5 ;POINT TO VALUE ON TOP OF STACK 
DF 19 : CALL REFERENCE PROCESSING ROUTINE WITH: 
DF 1 : Rg POINTER INTO INTERMEDIATE CODE BUFFER 
oF 6513: R VALUE STACK POINTER 


“_o 


rrr 
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Hee PSSREE OPERAND REFERENCE GENERATION g- -SEP-19 3B 84: 49:27 MACRO. SRCIP2ACT1 MAR: 1 - 13) 
DF 14; R 
DF 15 : R POINTER TO TOP VALUE ON VALUE STACK (MACSAL_VALSTACK(R7]) 
DF 1§ : RG REGISTER FOR REFERENCE 
44 18 : R2 Number of characters to display operand 
52. O335'CF43 «4990 OeDF 519 * MOVB W*REF_SIZECR ; Get characters required 
26 O2FS'CF4 bd E5 0 MOVL Ae “5 tEEFR 34-R 3GET DISPATCH ROUT INE ADDRESS 
6 19 EB 521 JSB (R3) ;DISPATCH TO MODE ROUTINE 
03 6B O7 € ED 5 ¢ BBCC #FLGS$V pieden (R11) ,60$ BRANCH IF NOT OPTIMIZED REFERENCE 
57 = BE 4 8 F1 MOVL (SP)+,R 7s YES--RESTORE VALUE STACK PTR 
wa TR Raweet le EARS RER 
F 
iS 5 »MACRO REF_PRO ROUTINE 
F5 8 DEBUG ROUTINE 
0 + 9 LONG ROUTINE 
O2F 0 .ENDM = REF_PRO 
O2F5 531 REF_DISP: ;OPERAND REFERENCE DISPATCH TABLE 
02F5 33¢ REF_PRO REF_O TLITERAL 
I AT TENET tae ac00 
s + 
beh 335 REF-PRO REE=§ sPOSITION INDEPENDENT (G*) 
0305 536 REF_PRO REF_4 3 INDEXED 
0309 537 REF_PRO REF_5 sREGISTER 
030D 538 REF _PRO REF .§ sREGISTER DEFERRED 
031] 539 REF-PRO REF— SAUTO DECREMENT 
0315 540 REF-PRO REF-8 ;AUTO INCREMENT 
0319 541 REF _PRO REF_9 ;DEFERRED AUTO INCREMENT 
031D 348 REF-PRO REF—A :BYTE DISPLA 
0321 54 REF _PRO REF_B ;DEFERRED BYTE DISPLACEMENT 
0325 544 REF_PRO REF_C ; WORD TE ge T 
0329 545 REF-PRO REF —D TDEFERRED WORD DISPLACEMENT 
O36? 546 REF_PRO REF_E ;LONG WORD DISPLACEM 
tet ath REF_PRO REF _F [DEFERRED LONG WORD BESPLACEMENT 
Ogee 4 ; Taole of characters required to display operand 
0335 551 REF_SIZE: 
O¢ 335 226 BYTE ¢ 3; Literal 
0 O38 55 BYTE ; Immediate (PC)+ 
03 oH 554 oii: ee : Deferred immediate (PC)+ 
8 3 $22 ge 11 ; soaaecen independent (G*) 
- 3; Indexe 
ne 2h BYTE : Reblecer deferred 
" 3 Re erre 
0 C 59 BYTE 3; Auto decrement 
Bae Play tat sce 
. ; Deferred auto incremen 
82 33F 286 -BYTE ; Byte displacement 
83 bae9 a7 “Byte $ 3 were’ slap pyee Steplacenent 
‘ 3 Wor acmen 
07 O32 abe BYTE 7 5 ceteered’ word ¢teplecnent 
0B Bae 266 -—BYTE 11 ; Long word displacment 
0B 4G 6 BYTE 11 ; Deferred word long displacment 
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yOs2p00 ROUTINES CALLED BY P2SREF met 7 EEE ERACRO. SRCIPSACT1 OMAR: 1 ° (8) 
4 4 -SBTTL ROUTINES CALLED BY P2SREF 
4 sf p++ 
t2 ie ; FUNCTIONAL DESCRIPTION: 
' $2 Be 3 THIS ROUTINE PROCESSES LITERAL REFERENCES 
t2 rf REF_0 LITERAL MODE 
0200 30 0345 579 a BSBW OPND_CHECK : Check Listin space for operand 
of D7 48 289 DECL R7 ; IGNORE MODE/REG ON STACK 
5 DS 4A 2 1 TSTL =(R5) s;BACKUP STACK POINTER 
1A 68 07 E1 4 86 BBC LEY ero T. CREED Oe ;BRANCH IF NOT OPTIMIZED EXPRESSION 
02 AS BS 035 58 TSTW 2(R5) ;CHECK FOR LEGAL LITERAL 
05 12 035 84 BNEQ 108 ;I1F NEQ THEN TRUNCATION 
3F 65 B1 0355 85 CMPW (R5) , #63 sLARGEST LITERAL 
08 18 0358 86 BLEQU :1F LEQ THE 
B328 587 10$: SMAC_P2_ERR DATATRUNC : Error message 
50 65 90 0 oe 588 20$: MOVB (R5),R :GET BYTE OF DATA 
FC98" 30 036 589 BSBW MACSSTOIM sSTORE INTO OBJECT FILE 
0B 11 #0368 590 BRB 40$ 
036A 591; 
Soa 235 3; NOT OPTIMIZED 
0000 'DF 27 90 036A 594 Sos: MOVB #*A/'/ ,aW*MACSGL_LIST_PTR ;PUT QUOTE IN LISTING 
O36F 595 $OBJ_CHKBYT #TIR$C_STO_LT ;STORE LITERAL 
0375 596 408: SMAC_LIST_BYTE #1 sLIST THE BYTE 
05 0378 597 RSB 
037C 598 
C37C 3=—s 5599 5 +4 
ba5c oR 3 FUNCTIONAL DESCRIPTION: 
037C O0¢ ; REF _2 PROCESSES ABSOLUTE Ca(PC)+] REFERENCES. REF_1 
037C 603 ; PROCESSES IMMEDIATE REFERENCES 
037C 604 ; 
037C 605 ;-- 
037C 606 
037C 607 REF_2: sABSOLUTE a(PC)+ 
50 OO9F 8F 3C «=—(037C 608 MOVZWL #<ADMS_DFRAUTOINC@4>+15,R0;SET MODE/REGISTER 
05 11 0381 609 RB IMM 
at 610 REF_1: ; IMMEDIATE MODE (PC)+ 
50 OO8F 8F 3c 60038 611 MOVZWL #<ADMS$ REGAUTOINC@4>+15,R0; SET MODE/REGISTER 
65 3 9 88 6i¢ IMM: MOVL  RO,(RSY 7SET MODE/REGISTER ON STACK 
FC72° 8B sé BSBW MACSSTOIM sSTORE MODE/REGISTER IN OBJECT CODE 
50 O4A A 8 614 MOVZBL 4(R8),RO ; Get type of reference (byte, word, long) 
; ae 97 7 9 615 ASHL #1,R0,R0 ; Convert to number of chars required 
52 0 § 9 616 ADDL2 RO,R : add to initial size 
027C 0 99 617 Beg OPND_CHECK 3 Check List ng space for operand 
25 913 MAC_LIST BYTE #1 sLIST MODE/REGISTER 
01 04 AB 91 A 61 CMPB 4TR8) , #1 sBYTE FORMAT? 
21 12 : ° ’ BNEQ 30$ ;1F NEQ NO 
n ? § ; BYTE FORMAT IMMEDIATE REFERENCE 
0B 68 3 + A 624 . BBC #FLGSV_EXPOPT,(R11),10$ ;BRANCH IF NOT OPTIMIZED EXPRESSION 
FC51° 0 AC 625 BSBW MACSCK_BYT_TRUN 3s YES--CHECK TRUNCATION 
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yOe2p00 ROUTINES C Y P2SRE oe et oe 


CTION ROUTINES FOR PA 1:45 y 4 
OUTINES CALLED BY P2$REF :49:27 CMACRO. SRCIPSACTI OMAR: 1 8) 
50 0 AF 6 MOVB (RS) ,RO :GET THE VALUE 
FC4B' B BSBW MACS$STOIM ‘STORE into" OBJECT CODE 
1 : : 8 BRB 20$ 
Bf 6 0 : NON-OPTIMIZED BYTE 
0000'DF 27 90 O387 6 3 10$: MOVB  #*A/"/,aW*MACSGL_LIST_PTR ;PUT Quore INTO LISTING 
BC 6 $OBJ_CHKBYT #TIR$C_STO_B~ :STORE BYTE COMMAND 
C2 634 208 sH ACTLIST_BYTE #1 ‘LIST BYTE VALUE 
05 0 C 635 RSB 
0 C9 é 5 + NOT BYTE REFERENCE 
02 04 a8 91 0309 6 § S0s: CMPB ss G& (RB) , #2 ;WORD FORMAT? 
Is 12 03CD 640 BNEQ 60$ SIF NEQ NO==LONGWORD 
08 68 =O gi O3CF 641 BBC #FLGSV_ EXPOPT . (R11) ,40$ ;YES=-BRANCH IF NOT OPTIMIZED 
FC2A' 30 0303 64g BSBW  MACSCK~WRD_TRUN SOPTIMIZED--CHECK TRUNCATION 
54 02 9A 0306 64 MOVZBL #2,R4 ~ :S NT 
19 11 0 D9 644 BRB 6 g* 60 STORE BYTES 
3pB 645: 
0308 646 : NON-OPTIMIZED WORD REFERENCE 
0000'DF 27 90 O3pB 648 dos: OVB so #*A/'/ ayeMACSGL _LIST_PTR {STORE 0 QUOTE uly LISTING 
03E0 649 $08) _CHKBYT ating STORE, Wor D COMM 
0366 650 50S: SMAC- “LIST_BYTE # SLIST 
05 O3EC 651 RSB 
O3ED 63¢ ; 
O3ED 693 t LONGWORD FORMAT 
16 68 O07 €1 bse 655 80$: BBC #FLGSV_EXPOPT,(R11),80$ ;BRANCH IF NOT OPTIMIZED 
54 04 «9A O3F1 636 MOVZBL #4,R4 ~ :GET LOOP COUNT 
O3F4 698 : : EMIT VALUE TO OBJECT CODE, 1 BYTE AT A TIME 
54 DD O3F4 660 45$: — PUSHL SAVE BYTE COUNT 
50 85 90 O3F6 661 70$:  MOVB Rasy RO [GET NEXT 
FCO4' 30 O3F9 66 BSBW MACSSTOIN : STORE INTO OBJECT CODE 
F754 F5 O3FC 66 SOBGTR R4,70$ [LOOP FOR ALL 
54 BE DO O3FF 664 MOVL  (SP)+,R4 SRESTORE BYTE COUN 
55 54~—CO2 0402 665 suBL2 Re RS TADJUST THE STACK NPOINTER 
0 11 0405 666 BRB 90$ 
0407 667; 
o u 668 : NON-OPTIMIZED LONGWORD 
0000'DF 27 90 0407 rai BOS:  MOVB  #*A/"/,aW*MACSGL_LIST_PTR ;STORE QUOTE IN LISTING 
040C 671 $OBJ_CHKBYT #TIR$C_STO_LO i STOR RE LONGWORD COMMAND 
54 04 9A 041 676 MOVZBL #4,R4 [SET TO LIST 4 BYTES 
415 673 90$: S$MAC_LIST_BYTE R4 {PTST LONGWORD 
05 0418 67% RSB 
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+ vets he ROUTINES CALLED BY P2$REF gr een 1882 HEE ERACRO SRCIPSACT1 OMAR: 1 (9) 
76 ;++ 
aig ery : FUNCTIONAL DESCRIPTION: 
aig 4 : STORE POSITION INDEPENDENT REFERENCES. 
41C ; 
a 
F9 = s- 30 tig 3 = BSBW OPND_CHECK 3; Check Listin spece for operand 
57 D7 O41F 685 ie {IGNORE MODE /REGI TER 
63 3 t : rt pace atesy EXPOPT,(R11),30$ :BRANCH IF NOT OPTIMIZED REFERENCE 
06 BA 4 ; eas MOVZBL #TIRSCISTA_PLLRS ;ASSUME LONGWORD 
Re 3 i D $50 neat aRSS CAN WE OPTIMIZE SOME MORE? 
ag ag oe 9 833 tr os, :MAYBE--CHECK LOW WORD 
15 19 0434 69 BLSS  10$ [IF LSS CANNOT OPTIMIZE 
05 9A 0436 694 MOVZBL #TIRSC_STA_PW,R3 ;CHANGE TO STACK WORD 
oe 38 etd $33 a reat :WE'RE DOING GOOD--OPTIMIZE TO BYTE? 
$ 3 
ge oS bea] C88 Bee RSD ‘ AAYDE 
06 19 0443 699 BLSS 10$ [IF LSS NO 
04 9A 0445 700 MOVZBL ATIRSC_STA_PB.R3 SYES=-CHANGE TO BYTE 
01 9A 0448 tee 
: SOUTPUT COMMAND 
0000' CF Dp pee8 8 ee Poeac Seat saL sect USE TEMP TO WRITE ADJUSTED, SEGMENT r 
6 ee re Bas pernsy REF ,- *I1F THE BLANK PSECT HASN'T BEEN REF'D 
0459 706 PSECTSBLANK+SYMSW_FLAG,15$ IT'LL BE REMOVED, DECR THE SEGH 
se Beat 108 15$: i outayy (SP) [OUTPUT CURRENT PSECT NUMBER 
BE 05 0467 709 TSTL”  (SP)+ SAND CLEAN UP THE STACK. 
ae ht fio 20S: SOB) OUTEYT (R5)+ SEMIT ONE BYTE OF VALUE 
F752. FS 0471 71 SOBGTR R2,20$ SLOOP FOR ALL 
BE C2 0474 ig SUBL2 (SP)+,R5 SADJUST STACK POINTER 
0477 714 30$: $0BJ_CHKBYT #TIRSC_STO_PICR GENERATE POS. IND. REF. 
46 8F 9A 047D 715 MOVZBL #*A/F/,RO [PRINT 'F 
FB7C' 30 0481 716 BSBW  MAC$LST_CHAR 22 
47 BF 9A 04684 717 MOVZBL #*A/G/,RO :PRINT 'G 
FB75' 30 0488 718 BSBW  MACSLST_CHAR 
27. OA 488 719 MOVZBL WALT GRO :PRINT QUOTE 
seca: ace 139 tT PC ss, :COUNT MODE/REGISTER 
0495 16 SMAC_LIST_BYTE #4 PRINT LONGWORD ON STACK 
05 0498 72 RSB 
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v04=000 ROUTINES CALLED BY P2SREF BreEE 1986 89:49:37 MACHO SReIPoAL ST mar: 1 oe 18) 
49C 725 ;++ 
rh: f § 3 FUNCTIONAL DESCRIPTION: 
49C 728 ; PROCESS INDEX MODE REFERENCES 
49C 729; 
49C 7350 :-- 
49C 731 
49C 7 ¢ REF _4: s INDEXED REFERENCE 
50 01 A8 9A rt; 7 yds 1(R8),RO ; Get mode of reference 
52. FE9O CF40 30 4A 734 DOB W*REF _SIZECROJ,R2 : ane adé bytes required 
016F 28 735 SBW OPND_CHECK Check Listing space for operand 
50 93 33 GA 7 § MOVB R5),RO iGET *MODE/REG I TE 
FBS1' 0 Q4AC 7 BSBW MACSSTOIM ST ORE INTO OBJECT CODE 
OGAF 738 SMAC -LIst BYTE #1 :LIST MODE/REGIST aa 
OOOO'CF oD 4B 739 INCL W*MACSGL_LIST_P Back up over spac 
00 6B 28 #=€C 044 £9 108 BBSS WF G$V_OPNDCHR, (R11), 108’; Flag that operand check is done 
68 01 A8 90 O4BD rg MOVB 1(R8), (RB) ;MOVE MODES 
01 AS 94 Q4C1 74 CLRB 1(R8) : 
02 AS 03 AB 90 04C4 744 MOVB 3(R8) ,2(R8) : 
03 AS 94 0409 745 CLRB 3(R8) 
7E 6B FFFFFF7F 8F CB O4CC 746 BICL3 #*C<FLGSM_EXPOPT>,(R11), oth 3SAVE OLD EXPOPT FLAG 
FDBS 30 0404 747 SBW P2$XREF 3 CAL L kR EF FOR REST OF OPERAND 
6B 8E C8 0407 748 BISL2 (SP)+,(R11) SET EXPOPT FLAG IF SET BEFORE 
05 04D 749 RSB TALL DONE 
0408 750 
04DB 751 REF_5 sREGISTER 
0408 £36 REF _6 sREGISTER DEFERRED 
0408 753 REF_7 ;AUTODECREMENT 
0408 754 REF_8 ;AUTOINCREMENT 
04DB 755 REF_9 ;AUTOINCREMENT DEFERRED 
013A 30 0408 756 BSBW OPND_CHECK 3; Check Listin repece for operand 
50 90 O4DE 757 MOVB (R5)>RO 3GET MODE/REGIST 
FBIC’ 30 04E1 758 BSBW MACSSTOIM ePiste IN OBJECT CODE 
04E4 759 poe -LIST_BYTE #1 LIST MODE/REGISTER 
05 O4EA 760 RSB 
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tvees ROUTINES CALLED BY P2SREF ae 4 ge 9:27 EMACRO. SRe P2ACT1.MAR; 1 . (11) | 
4EB 768 y+ 
aeB 763 > FUNCT'ONAL DESCRIPTION: 
eB 165 : THIS ROUTINE PROCESSES 8-BIT DISPLACEMENT REFERENCES 
O4eB re — 
4EB 768 
O48 769 REF_A: 78-BIT DISPLACEMENT 
4EB 770 REF"B: :8-BIT DEFERRED DISPLACEMENT ' 
012A 30 O4EB 771 BSBW OPND_CHECK : Check 5 tes ing space for operand 
50 65 90 O4EE re MOVB (R5)-RO GET MODE/REGISTE 
FBOC' 30 O4F1 77 BSBW MACSSTOIM OUTPUT TO OBJECT CODE 
Fe 77% SMAC_LIST_ BYTE #1 sLIST MODE/REGISTER 
OF 02 a8 91 O4FA 775 CMP gtRB) #15 3PC RELATIVE REFERENCE? 
3f 12 O4FE 776 BNEQ o$ :1F NEQ NO 
1E 68 7 €1 0500 777 BBC #FLGSV_EXPOPT,(R11),10$ ;YES=-BRANCH IF NOT OPTIMIZED 
0504 778 SVPUSH W*MACSGL_PC sOPTIMIZED=-STACK PC 
85 05 O50E 779 TSTL (R5)+ : 
65 06 0510 780 INCL (R5) zADD 1 FOR OPERAND 
FAEB’ 30 0312 781 BSBW PISARITH_SUB ; 
75 «#05 051 78¢ TSTL =(R5) :BACK UP MY POINTER 
FAE6" 30 0517 78 BSBW MAC$CK_SBY_TRUN :CHECK FOR TRUNCATION 
50 65 90 OSIA 784 vB (R5) ,RO :GET BYT 
FAEO' 30 051D 785 tsBW  MACSSTOIM ZAND STORE IN OBJECT CODE 
27 =6©11 +0520 786 Beb 40 | 
8255 787 ; 
8255 ree 3; NON-OPTIMIZED PC-RELATIVE 
0000'DF 27 90 0522 790 jos: MOVB #*A/'/,aW*MACSGL_LIST_PTR ;PUT QUOTE INTO LISTING 
0527-791 $OBJ_CHKBYT #TIR$C_STO_BD sSTORE BYTE DISPLACED 
1A 11 0520 = 792 BRB 40$ 
OS2F 793; 
base ree 3; NOT PC-RELATIVE 
0B 6B 07 088 796 20$: BBC #FLGSV_EXPOPT,(R11),30$ ;BRANCH IF NOT OPTIMIZED 
FACA' 30 0533 797 BSBW  MAC$CK-SBY_TRUN :YES=-CHECK FOR TRUNCATION | 
50 65 90 0936 798 MOVB (R5),R :GET THE BYTE 
FACS’ 30 0539 799 BSBW MACS$STOIM :STORE INTO OBJECT CODE | 
0B 11 #053c 800 BRB 40$ 
OS3E 801; 
Boge 4 ; NOT PC-RELATIVE, NOT OPTIMIZED 
0000'DF 27 90 O33 804 $08: MOVB = #*A/"/ ,aW*MACSGL_LIST_PTR ;PUT QUOTE INTO LISTING | 
0543 805 $OBJ_CHKBYT #TiRSC_STO_SB : Store signed byte 
0549 807 : FINISH PROCESSING 
0549 08 ; 
0549 809 40$: $MAC_LIST_BYTE #1 :LIST THE BYTE | 
05 054F 810 RSB 
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ACTION ROUTINES FOR PASS 2 16-SEP-1984 02: 
ROUTINES CALLED BY P2$REF ets g¢: 
325 B18 itt 
2 17 ; FUNCTIONAL DESCRIPTION: 
32 815 : PROCESS 16-BIT DISPLACEMENT AND 
§228 16 ; REFERENCES. 
055 17; 
§228 18 ;-- 
550 19 
0550 8 0 REF_C: 
0550 1 REF"D: 
00cS) = 30 9330 é é BSBW OPND_CHECK 
50 65 90 093 8 MOVB (R5) RO 
FAA7' 30 0556 4 BSBW MACS$STOIM 
0559 5 SMAC_LIST BYTE #1 
OF 54 91 O55F 6 CMP Row 
2A 12 0562 827 BNEQ 206 
19 68 07 €1 0564 828 BBC #FLGSV_EXPOPT, (R11),10$ 
0568 363 SVPUSH W*MACSGL_PC 
85 DS 0572 830 TSTL (R5)¢ 
65 02 CO 0574 831 ADDL2 #2,(R5) 
FAB6' 30 0577 832 BSBW P1$ARITH_SUB 
75 05 O57A 83 TSTL) sos 
FAB1" 30 057C 834 BSBW MACSCK_SWD_TRUN 
14 11 OS7F 835 BRB 30$ 
0581 836 ; 
0581 837 ; PC-RELATIVE, NOT OPTIMIZED 
0581 838 : 
0000'DF 27 90 0581 839 fos: MOVB 
0586 840 $OBJ_CHKBYT #TIRSC_STO_WD 
22 «11 «#058C = 841 BRB 50$ 
058E B42 : 
43 Sti : NOT PC-RELATIVE 
13 68 07 eI O58 845 30$: BBC #FLGSV_EXPOPT, (R11) ,40$ 
FA6B' 30 0592 846 BSBW  MACSCK~SWD_TRUN 
50 85 90 0595 847 30S: MOVB (R5)+,R 
FA65' 30 0598 848 BSBW MACSSTOIM 
50 65 90 0598 849 MOVB (R5),RO 
FASF* 30 059€ 850 BSBW § MAC$STOIM 
75 95 O5A1 51 TSTB ss = (R55) 
0B 11 05A3 832 BRB 50$ 
05a5 «853; 
05a B36 3 NOT PC-RELATIVE, NOT OPTIMIZED 
0000'DF 27 90 ae He 40$:  MOVB #*A/"/,aW*MACSGL_LIST_PT 
OSAA 857 $OBJ_CHKBYT #TIRS$C_STO_S@ 
0580 858 50$: SMAC“LIST_BYTE #2 
05 0586 859 RSB 
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16-BIT DEFERRED DISPLACEMENT 


ENT 

DISPLACEMENT 
gece for operand 
C 

E 


;IF NEQ N 
7 YES--BRANCH IF NOT OPTIMIZED 
sOPTIMIZED=-STACK PC 

;BUMP THE POINTER 

:PLUS SIZE OF OPERAND 


:BACK UP POINTER 
;CHECK FOR TRUNCATION 
:GO EMIT CODE AND EXIT 


#*A/"/ ,aW*MACSGL_LIST_PTR ;PUT QUOTE IN LISTING 


STORE WORD DISPLACED 


BRANCH IF NOT OPTIMIZED 
7 YES--CHECK TRUNCATION 
;GET A BYT 


; E 

:SEND IT TO OBJECT CODE 

:GET SECOND BYTE 

SEND IT TO OBJECT CODE 

KEEP R5 POINTING TO TOP OF STACK 


R ;PUT QUOTE IN LISTING 
:STORE SIGNED WORD 
‘LIST THE WORD 


D 
MACSP2ACTI ACTION ROUTINES FOR PASS 2 16-SEP-1984 02:11:45 VAX/VMS Macro v04-00 Page 
Y0e e000 ROUTINES CALLED BY P2$REF ee 1 SEES EMACRO-SROSPSACTT MAR: 1 ° 
587 61 ;¢ 
287 6 3 FUNCTIONAL DESCRIPTION: 
0987 64: PROCESS pert DISPLACEMENT AND 32-BIT DEFERRED DISPLACEMENT 
5B? B65 : REF ERENC 
5B7 08 : 
587 67 ;-- 
587 868 
587 69 REF_E: 332-BIT DISPLACEMENT 
0587 0 REFF: :32-BIT DEFERRED DISPLACEMENT 
O0SE 30 0587 71 BSBW OPND_CHECK 3 Check yo space for operand 
50 65 30 098A fe MOVB = (R5) =RO [GET MODE/REGISTE 
FAGO' 30 O5BD 87 BSBW  MACSSTOIM SWRITE TO OBJECT CODE 
05¢0 874 $MAC_LIST BYTE " [LIST MODE/REGISTER 
OF 54 91 056 875 CMPB~ R2,#1 ;PC@RELATIVE? 
27 12 05¢9 876 BNEQ 208 SIF NEQ NO 
1668 O07 +€1 O5¢B 87 BBC #FLG$V_EXPOPT,(R11),10$ :YES=-BRANCH IF NOT OPTIMIZED 
OSCE 878 SVPUSH W*MACSGL_PC SOPTIMIZED--STA 
85 05 0509 879 TSTL (R5)¢ ‘BUMP THE POINT R 
65 04 c0 0508 880 ADDL2 4#4,(R5) [PLUS SIZE OF OPERAND 
FAIF® 30 OSDE 881 SBW = P1$ARITH_SUB 
75 05 05€1 882 TSTL = (RS) ;BACKUP THE POINTER 
Nn -T OSE 883 BRB 30$ [GO EMIT CODE AND EXIT 
b2ee MH 3 PC-RELATIVE, NOT OPTIMIZED 
0000'DF 27 90 O5€5 887 jos: MOVB = #*A/"/ ay*MACSGL LIST_PTR ;PUT QUOTE IN LISTING 
OSEA 888 $0BJ_CHKBYT etinsc STO_LB sSTORE LONGWORD DISPLACED 
1F 36.11 «05FO)~—s 889 BRB 60$ 
O5F2 890; 
O5F2 891 : NOT PC=RELATIVE 
10 6B O07 €1 O52 $95 208: BBC #FLGSV_EXPOPT,(R11),50$ ;BRANCH IF NOT OPTIMIZED 
53 040 OSA «(05F6 894 30S: MOVZBL #4,R3 ~ :SET A LOOP ySQuN 
50 85 90 0:79 895 40$: MOVB CRS)* RO [GET NEXT 
FAQI" 30 05°C 896 BSBW  MAC$STOIM ;STORE IN OBJECT CODE 
F753 «FS «OOSFF 0897 SOBGTR R3,40$ “LOOP FOR 4 BYT 
75 05 0602 898 TSTL = (RS) KEEP RS POINTING TO TOP OF STACK 
0B 11 0604 899 BRB 60$ SAND EX 
0606 900; 
0606 90) > NOT PC-RELATIVE, NOT OPTIMIZED 
0000'DF 27 90 0606 903 50$: move #*a/'/ au*MACSGL LIST_PTR ;PUT QUOTE IN LISTING 
060B 904 $0BJ_CHKBYT at inscrs STO_LQ sSTORE LONGWO 
0611 905 60S: SMAC"LIST_BYTE ‘LIST THE GORD 
05 0617 906 RSB 
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MACRO. SRCJP2ACT1.MAR; 1 
.SBTTL OPND_CHECK 


++ 
; Functional description: 


This routine checks that there is space on the current 
Listing Line to write the next operand 
Inputs: 
R2 = Number of characters required to write operand 
; Outputs: 
None 


PND_CHECK: 
BB 


we ee ee eee el wel el ol ol olelololealololelolo!) 


an 
PAXAAAAAAAAAAAAAAAAAASAOSAAASSAASAAS FT 
SE AAWNIWIROPONONPD 2 ees 
COODWOAKAYT SO F&O 1M COO 090900000000 00 00 00 CD CD00: 
WDOOOOODOODOOOODOODOODOOOODOOOOOOVOOOOOOOOOOONO 


BBE EE EAA NNN NPoNNINNNP Nr 3 4 PS OO OO 
MEWN OC OONAU EWN OO ONAUS WN -OOONOULS WN -OOo 


33 68 28 £4 #FLGSV_OPNDCHK, (R11), 30$ ; Branch if check has been performed 
0000'CF O00000000'8F C3 SUBL3 #MAC$AB_LST END. 3 “Compute number of characters still 
50 W*MACSGC_LI : available on Line 
0368 27 €1 BBC #FLGSV “UPDFIL CRifD 10S ; If updating file 
50 10 (C2 =a SUBL2 #AUDSK~SIZE,RO > subtract size of audit trail 
00000000'8F OO00'CF 01 CMPL W*MACSGL_LIST phir. - : First operand? 
#MACSAB_CST_OP1 
08 13 O BEQL ; Yes if EQL 
Se 2 cc ® ADDL2 #2,R2 ; Two more characters required for 
0 : poparat ing spaces 
OOOO'CF O02 C2 8 20$ SUBL2 #2,W*MACSGL_LIST_PTR ; Move pointer back two spaces 
52 50 D1 06 CMPL RO,R2 ; Required characters available? 
A 18 0643 BGEQ 30$ : Yes if GEQ 
F9B8" 30 0645 BSBW MACSWRTLST : No. Write Line 
0000‘ CF 0000'CF 9E 0648 MOVAB W*MACSA AB LST_OP1, 3 and reset pointer 
Bree 30$ W*MACSGL “LIST_ PTR 


-——— _ _ — a a 
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MACSP2ACT1 ACTION ROUTINES FOR PASS 2 16-SEP-1984 02:11:45 VAX/VMS Macro V04-00 Page 21 
v04-000 P2SEND THE END OF PASS -SEP-1984 4 BF: 2:49:27 MACRO_SRCIPSACTI MAR: 1 ° GS) 
$3 947 ~SBITL P2SEND THE END OF PASS 2 
6 348 
65 949 ;++ 
bee 320 > FUNCTIONAL DESCRIPTION: 
065 936 ; THIS ROUTINE IS CALLED WHEN THE END COMMAND IS aENCOUNTERED IN 
065 953 ; THE INTERMEDIATE FILE. THE PC IS SET, THE FINAL RECORDS ARE 
0650 954; WRITTEN OUT TO THE OBJECT MODULE, AND THEN A NMP IS EXECUTED 
0650 955; TO THE END OF PASS 2. 
9630 956 ; 
065 957 ;-- 
$30 938 
65 959 P2SEND:: 
FOAD' 30 630 960 BSBW MACS$SET_PC ;UPDATE PC 
FOAA’ 30 065 961 BSBW MACSURTC SS [WRITE OUT LISTING 
FOA7' 30 0656 368 BSBwW MAC$F INISH_ASM ;FINISH ASSEMBLY. WRITE OUT 
0659 96 TRACEBACK, DeBus. AND SYMBOLS 
| 0000'CF 03 9A 0659 964 MOVZBL #OBJ$C_EOM,W*MACSGL_ RECTYP > SET END 0 F MODULE RECORD TYPE 
99F* 30 O065E 965 BSBW MAC$WRTOBJ sWRITE OUT ANY PREVIOUS RECORD 
50 00 00 0661 966 MOVL FOB I$¢ _EOM_OK,RO S ASSUME ORODUL E OK 
56 6001)0=— Os (0664S «967 MOVL #1,R6 ~ TASSUME SUCCESS 
OF 68 30 £0 0667 968 BBS #FLGSV_EXTERR,(R11),5$ ANY EXTERNAL FACILITY ERRORS? 
1A 6B 31 £0 0668 969 BBS #FLGSV- EXTURN (R11).8$ :ANY EXTERNAL FA cit vy gARNINGS? 
OOOO'CF C9 O66F 970 BISL3 W*MACS$GL_ERR :WERE aRHERE ANY ERR 
| 51 0000'CF 0673 «971 W*MACSGL ~pARNCT, R1 OR W RNINGS? 
16 13 0677 972 BEQL Tos IF aL NO=-GOOD MODULE 
| 50 02 00 0679 973 5S: MOVL #OBJ$C_EOM_ERR,RO : ASSUME SEVERE ERRORS 
56 02 DO 067C 974 MOVL J 
OOOO'CF DS O67F 975 TSTL W*MACSGL_ERRCT IWERE THERE ERRORS? 
OA 12 0683 976 BNEQ 10$ s1F NEQ YES--GO SET STATUS 
06 68 30 €0 0685 977 BBS #FLGSV_EXTERR, (R11),10$ ;MAKE SURE ABOUT EXTERNAL ERRORS TOO! 
50 01 DO 0689 978 8$: MOVL #0BJ$C"EOM_WRN,RO :NO=-SET WARNING STATUS 
56 00 dO 068C 979 MOVL #0,R6 ~ 
0OOO'CF 56 DO O68F 980 10S: MOVL R6,W°MACSGL_STATUS SAVE STATUS FOR EXITING 
0694 981 $0BJ_OUTBYT.0 RO STORE STATUS 
55 QO00'CF 00 0697 982 MOVL UAAACSCL_ XFRADR,RS ‘GET TRANSFER ADDRESS 
20.13 069¢ 983 BEQL 30$ :1F EQL NO GRANGER ADDRESS 
9043 HH ; OUTPUT TRANSFER ADDRESS INFORMATION 
50 OC AS DO O069E 987 MOVL SYM$B_SEG(R5) ,RO 7GET THE SYMBOL'S PSECT NUMBER 
OA 13 O6A2 988 BEQL 138 ;DON'T FIDDLE WITH THE ABSOLUTE PSECT! 
07 06A4 989 BES “IF THE BLANK PSECT IS NOT REFERENCED 
02 00000009' EF 6A6 990 PSEC TSBLANK#SYMSW._ FLAG, 15$ ;IT'LL BE REMOVED SO DECR THE PSECT# 
50 o7 O6AC 991 DECL 3TO MAINTAIN CORRECT PSECT ALIGNMENT 
O6AE 998 15$: $0BJ_OUTBYT_O RO :QUTPUT SYMBOL'S PSECT 
55 05 A5 9E 0681 99 MOVAB = SYMSL_VAL(R5) ,R5 POINT TO SYMBOL VALUE 
54 04 OA 0685 994 MOVZBL #4,R47 :SET COUNT 
| 688 995 208: $0BJ outer 0 (R5)+ OUTPUT BYTE OF THE VALUE 
FA F5 06BB 996 SOBGTR 4,208 LOOP FOR 4 BYTES 
0000'CF 4 068 997 30$: CLR Se RACSGL XFRADR ZRESET TRANSFER ADDRESS POINTER 
| F93B" 30 06C 998 BSBu MACSWRTOBJ WRITE OUT FINAL RECORD TO OBJECT FILE 
| F938" 31 06C 999 BRW U-MACSPASS. 2_END {PASS 2 JS COMPLETED 
| b6c8 1000 
06C8 1001 ~END 


MACSP2ACTI ACTION ROUTINES FOR PASS 2 Tg-SEP-1986 03:11:45 PAX/ VAS acre v04-00 Page 22 
Symbol table =SEP=1984 01:49:27 [MACRO.SRCJP2ACT1.MAR; 1 (15) | 
/ADMS_ABSOLUTE = 00000002 FLGSM_IFSTAT = 00800000 FLGSV_MAC2COL = 00000028 
_ADMS"BYTE DISP = QOOQQ00A FLGSM_IIF = 99<09000 FLGSV_MACL = 0900008 
ADMS_DFBYTEDISP= 00000008 FLGSM_INSERT = B008 0 FLG$V-MACLTB = 00000018 
ADMS_DFLONGDISP= O000000F FLGSM_IRPC = 20000000 FLGSV_MACTXT = 00000010 
ADMS$_DFRAUTOINC= 00000009 FLGSM_LEXOP = Ht FLGSV_MEBLST = Q000000C 
ADMS_DFWORDD 1 SP= BR ONR DD FLGSM_LSTXST = O80 088 FLG$V-MOREARG = SO a Se 
| ADMS_IMMEDIATE = 00000001 FLGSM_MAC2COL = 00000800 FLGSV_MOREINP = 00000023 
ADMS_ INDEX = 00000004 FLGSM_MACL = 00000800 FLGSV_NEWPND = QOQQQQ00A 
ADMS_LITERAL = 00000000 FLGSM_MACLTB) = ee aiea FLGSV_NOREF = 00000018 
ADMS_LONG DISP = Q000000E FLGSM_MACTXT = 00010000 FLGSV_NTYPEPC = BRO NSS 
~MAXMOD = 0000000F FLGSM_MEBLST = 00001000 FLGSV_NULCH = 00000032 
PIC = aie 464 FLGSM_MOREARG = TS! FLG$V_OBJXST = SE 
ADMS_REGAUTODEC= 0000000 FLGSM_MOREINP = 0000000 FLG$V_OPNDCHK = 00000028 
ADM$_REGAUTOINC= BanenOne FLGSM_NEWPND = 00000400 FLG$V_OPRND = 0000000D 
ADMS_REGISTER = 00000005 FLGSM_NOREF = 01000000 FLGSV_OPTVFLIDX= 0000002C | 
ADMS_RRIND = 00000006 FLGSM_NTYPEPC = 00000020 FLGSV_ORDLST = 00000011 
ADM$S"WORD_DISP = 0000000C FLGSM_NULCHR = 00040000 FLG$V_P2 = 0000000E 
AUDSR_SIZE = 00000010 FLGS$M_OBJXST = 00200000 FLG$V_RPTIRP = 0000001C 
BLNK = 00000020 FLGSM_OPNDCHK = 00000100 FLGSV_SEQFIL = 00000019 
CHRSM_C = 00000020 FLGSM_OPRND = 00002000 FLG$V_SKAN = 0000000F 
CHRSM_ILL_CAR = 00000040 FLGSM_OPTVFLIDX= 00001000 FLG$SV_SPECOP = 00000022 
CHRSM_NUM_ = 00000010 FLGSM_ORDLST = 00020000 FLGSV_SPLALL = QQOOQOO1A 
CHRSM_SPA_MSK = 00000001 FLGSM_P2 = 00004000 FLGSV_STOIMF = 00000012 
CHRSM_SYM_CH1 = 000000 FLGSM_RPTIRP = 10000000 FLGSV_SYM2COL = 0000002A | 
CHRSM_SYM_CHR = 00000004 FLGSM_SEQFIL = 02000000 FLGS$V_TOCFL = 00000013 
CHRSM_SYM-DLM = 000000 FLGSM_SKAN = 00008000 FLGSV_UPAFLG = 00000024 | 
CHRSV_COMMA_CR = 00000005 FLGSM_SPECOP = 00000004 FLG$V_UPDFIL = 00000027 | 
CHRSV_CVTLWE 389 =_: 00000061 FLGS"_SPLALL = 04000000 FLGSV_UPMARG = 00000026 
CHRSV_ILL_CHR = 00000006 FLGSA_STOIMF = 00040000 FLGSV_XCRF = 0000001F 
CHRSV_NOCOT s 0007F FLGSM_SYM2COL = 00000400 HASHSZ = 0000007F 
CHRSV_NUM_BER = 00000004 FLOSM_TOCFLG = 00080000 HYPHEN = 0000002D 
CHRSV_SPA_MSK = 00000000 FLSSM_UPAFLG = 00000010 IMM 00000388 R 03 
CHRSV_SYM_CH1 = 00000003 FLGSM_UPDFIL = 00000080 INP$K_BUFSIZ = 000003E8 
CHRSV_SYM_CHR = 00000002 FLGSM_UPMARG = 00000040 INTSK_BUFSIZ = 000013F4 
CHRSV_SYM_DLM = 00000001 FLGSM_XCRF = 80000000 INT$SK_BUFWRN = 00001390 
= 0000000D FLGSV_ALLCHR = 00000000 LSTS$K_BUFSIZ = 00000086 
_ABORT = 00000003 FLG$V_BOL = 00000001 LSTSK-L_P_PAGE = 0000003C 
EOMSC_ ERROR = 00000002 FLGS$V_CHKLPND = 00000014 LSTS$K-TITCE SIZ= 00000028 
EOMS$C_SUCEESS = 00000000 FLGS$V_COMPEXPR = aie MACSAB_LST_END seeeneee = X 03 
EOMSC_WARNING = 000000 FLGS$V_CONT = 0000000 MAC$AB_LST_OP1 ‘eexeeee XxX 03 
FF = 0000000C FLGS$V_CRF = 0000001E MACSAB_LST-OPR  *eeeeeee =X 03 
FLGSM_ALLCHR = 00000001 FLG$V_CRSEEN = 00000020 MACSAL-VALSTACK ‘*eeeeeee =X 03 
FLGSM_BOL = 00000002 FLGSV_DATRPT = 00000004 MACSCHRBYT eeeeeeee =X 8 05 
FLGSM_CHKLPND = 901000 FLG$V_DBGOUT = yids MACSCK_BYT_TRUN ‘*eeeeneee = xX 03 | 
FLGSM-COMPEXPR = 00000004 FLGSV-DLIMSTR = 0000002F MACSCK-SBY_TRUN steeeewe =X 03 
FLGSM_CONT = 00000008 FLGSV_ENDMCH = 00000005 MACSCK_SWD_TRUN ‘eeeeeee YX 03 
FLGSM_CRF = 400000 FLGSV-EVALEXPR = 00000006 MACSCK-WRD_TRUN ‘**eeeeee =X 03 
FLGSM_CRSEEN = 00000001 FLG$SV_EXPOPT = siti MACSFINISH"ASM = *eeeeeee§ =X = 03 
FLGSM_DATRPT = 00000010 FLGSVIEXTERR = ie MACS$GL_ERRCT seeeeeee =X 03 
FLGSM_DBGOUT = 00004000 FLGSV-EXTWRN = 00000031 MACSGL_LIST PTR seeeeeee xX (03 
FLGSM_DLIMSTR = aia ais FLGS$SV_FIRSTLN = 00000029 MACSGL_MOPNOM eeeeeeee = =X 8605 
FLGSM_ENDMCH = 0000002 FLGSV_IFSTAT = ODOC TG MACSGL_OPSIZE teneeeee = =6X | (05 
FLGSM_EVALEXPR = 00000040 FLGS$V_IIF = 00000016 MAC$GL_PC teeeeere = X 03 
FLGSM_EXPOPT = 00000080 FLG$SV_INSERT = 00000008 MACSGL_PSECT aeneeeee =X = 03 
FLGSM_EXTERR = 00010000 FLG$V_IRPC = et a MACSGL-RECTYP teeeeeee X03 
FLGSMEXTWRN = 00020000 FLGSV-LEXOP = = 9000021 MACSGL-STATUS eteeeeee XX 03 
FLGSM_FIRSTLN = 00000200 FLGSV-LSTXST = 00000009 MACS$GL—“WARNCT serteree = X 03 


MACSP2ACTI 
Symbol table 


|“ MACSGL_XFRADR 
MACSLIST_ BYTES 
mAceL ST CHAR 


MACSWR 


TOBJ 
MACS_BRDESTRANG= 


MACS_DATATRUNC 


MACS _SYMOUTPHAS 


MACS UNDEF SYM 
MAC_SuBSY 


OPND_ CHECK 
P1SARITH_SUB 
pesepst 

. SLGLAB 
P2SREDEF 
P2SREF 


NK 
PSC$L_MAXLGTH 
PSCSM 


PSCSM_ALIGNFLG 
PSCSM_ALLOPTNS 


yh ME 
PSC$M_DEF AULT 
PSCSM_EXE 
PSC$M_GBL 
PSCSM~LCL 


eenreeenre 
eereeere 
eerereee 
eerenere 
geerteene 
eerenreree 
eeenrernee 
geerrene 
genrneeeee 
ererernre 
eeeerree 


00000003 
00000003 


0000000¢ 
00000618 


geneerenre 
Q00000F F 
00000650 
00000218 
00000230 
00000099 


00000260 
00000000 
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There were 50 pages of symbol table space allocated to hold 878 non-local and Bs. an symbols. 
1001 source lines were read in Pass 1 produc ing,¢8 object records in Pass 2 


44 pages of virtual memory were used to define macros 


MACSP2ACT1 ACTION ROUTINES FOR PASS 2 197360 - 138% pee 14:88 rtd pores v04-00 Page ¢ 
| Symbol table -SEP-1984 49:27 (CMACRO.SRCJP2ACT1.MAR;1 (15). 
“TIRSC_STA_PB = 00000004 | 
/TIRSCISTA_PL) = = (00 g 
/TIRSC_STA_PWO= 
/TIRSCISTATSB = 1 

TIRSC“STA“SW = é 
TIRSCTSTATUB s 

TIRSC_STA_UW = 0 

TIRSC_STO_B = 00 8 

TIRSC"STO-BD = 00 

TIRSC_STO_L = 4 dE 

TIRSC“STO-LD = 0000001 

TIRSC_STO-LI = i 318 

TIRSC"STO"LW = 16 

TIRSC-STO_PICR = 9000001 ¢ 

TIRSC-STO-SB = 00000014 

TIRSC-STO-SW = 00000015 

TIRSC_STO_W = 00000026 

TIRSC"STO-WD = 00000018 
x = sia BR 
x1 = 0000003 
K2 = 00080000 

pews mam ee moaren Sa 
: ; Psect synopsis ! 

PSECT name Allocation PSECT No. Attributes 

- ABS. 00000000 <( 0.) OO ¢ QO.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

- BLANK . 0000000 ( 0.) 01 tas PIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 

0000001 ( 19.) 02 ¢ ¢°} NOPIC USR CON ABS LCL NOSHR’~ EXE RD WRT NOVEC BYTE 

MACSRO_CODE_P2 000006C8 ( 1736.) 03 ( -) NOPIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC LONG 

ee sono mew ean e nsec nore 
: ; Performance indicators ! | 

Phase Page faults CPU Time Elapsed Time 

Initialization 29 00:00:00.05 00:00:00.59 

Command processing 106 00:00:00.40 00: 398: ° 11 
Pass 368 BR 80: ba" ae 88: 0:32.62 

Symbol table sort 1 00:00:00.90 0:00:03.60 
Pass 2 182 83: 8:8 19 ee 91 

Symbol iable output 1 :00:00.16 0:00:00.61 
Psect synopsis output 1 8:88 -02 0:00:00.02 

Cross-reference output 0 :00: 9-99 00:00:00.00 | 
Assembler run totals 720 0:00:12.2 00:00:50.46 

{he working s * Limit was 1650 pages. 
71 bytes ef 9 pages) of virtual memory were used to buffer the intermediate c 
| 
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! Macro Library statistics ! 


dame nme wore nao wanaes eeecenoeen} 


Macro Library name Macros defined 
3 SDUA MACRO.OBJJMACRO.MLB:; 1 13 
S3S8spUAzB: 


SDUA SYSLIB STARLET. MLB; 4 
Teiace (all Libraries) 17 


1060 GETS were required to define 17 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:P2ACT1/0BJ=OBJ$:P2ACT1 MSRC$:P2ACT1/UPDATE=(ENH$:PZACT1)+LIB$:MACRO/LIB 


MAC' 
v04 


L EQUIPMENT CORPORA 
ENTIAL AND PROPRIET 


AH-BT13A-SE DIGI 
VAX/VMS V4.0 _ CONF 


022 


ION 
RY 


” 
A 


NT CORPORATION 
D PROPRIETARY 


AH-BT13A-SE DIGI 
VAX/VMS V4.0 CONF 


0227 


